home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.09 Sep 89 / MacApp Code / QPlot - McMath / MQPlot.p next >
Encoding:
Text File  |  1989-04-24  |  507 b   |  32 lines  |  [TEXT/MPS ]
  1. {$P}
  2. {MQPlot.p}
  3. {Copyright © 1988 by Charles F. McMath  All rights reserved.}
  4.  
  5. PROGRAM QPlot;
  6.  
  7. USES
  8.         { • MacApp }
  9.         UMacApp, 
  10.  
  11.         { • Building Blocks }
  12.         UDialog, UPrinting,
  13.  
  14.         { • Implementation Use }
  15.         SANE, ToolUtils, Fonts, Resources, Script, PickerIntf, Packages,
  16.         
  17.         { • the PlotUNIT }
  18.         UQPlot;
  19.  
  20. VAR
  21.     gQPlotApplication:   TQPlotApplication;
  22.  
  23. BEGIN
  24.     InitUMacApp(5); 
  25.     InitUDialog;
  26.     InitPrinting;
  27.  
  28.     New(gQPlotApplication);
  29.     gQPlotApplication.IQPlotApplication(kFileType);
  30.     gQPlotApplication.Run;
  31. END.
  32.